home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1989 July & August
/
rerun-1989-07-08.d64
/
demo part 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
3KB
|
109 lines
10 remb$="front pic pic":rem *as
11 remb$="book cover mpic":rem *aas
12 b$="pi.authors":rem*blaz
14 remb$="fdjaguar":rem*flex
16 gosub1068:rem default colors
18 gosub1074:rem print text
20 gosub1012:rem load pic file
22 gosub1014:rem move files *blaz
24 remgosub1016:rem move files *flex
26 gosub1018:rem move pic to stby
28 gosub1020:rem wait
30 gosub1024:rem screen off
32 gosub1026:rem go multi+hires
34 remgosub1034:rem move colors *as*aas
36 gosub1044:rem move colors *blaz
38 remgosub1054:rem move colors *flex
40 remgosub1056:remmulticolroff*flex*as
42 gosub1058:gosub1060:remscrnonfadein
44 gosub1020:rem wait
46 remgosub1062:remmulticoloron*flex*as
48 gosub1064:gosub1066:rem fade+exit
50 remb$="front pic pic":rem *as
51 remb$="book cover mpic":rem *aas
52 remb$="pi.authors":rem*blaz
54 b$="fdjaguar":rem*flex
56 gosub1068:rem default colors
58 gosub1174:rem print text
60 gosub1012:rem load pic file
62 remgosub1014:rem move files *blaz
64 gosub1016:rem move files *flex
66 gosub1018:rem move pic to stby
68 gosub1020:rem wait
70 gosub1024:rem screen off
72 gosub1026:rem go multi+hires
74 remgosub1034:rem move colors *as*aas
76 remgosub1044:rem move colors *blaz
78 gosub1054:rem move colors *flex
80 gosub1056:remmulticolroff*flex*as
82 gosub1058:gosub1060:remscrnonfadein
84 gosub1020:rem wait
86 gosub1062:remmulticoloron*flex*as
88 gosub1064:gosub1066:rem fade+exit
1000 rem end message
1002 print"[147]":fori=1to10:print:next:printspc(10)"that's all folks!":end
1003 printchr$(147):fori=1to10:print:next:printspc(11)"loading demo part 2"
1004 p$="demo part 2"
1005 print"":print:print:print"load";chr$(34);p$;chr$(34);",8":print:print
1006 print:print:print"run":printchr$(19):poke198,2:poke631,13:poke632,13:end
1009 rem ****************************
1010 rem ******* subroutines ********
1011 rem ****************************
1012 open1,8,1,b$:poke780,0:sys65493:close1:return
1014 sys53000,40960,8192,10239,1:return:rem move blazing paddles pic to 8192
1016 sys53000,24576,8192,8000,1:return:rem move flexidraw pic to 8192
1018 sys53105,0:return:rem fade out
1020 geta$:ifa$=chr$(136)thenreturn
1022 goto1020
1024 poke53265,peek(53265)and239:return:rem screen off
1026 poke53272,peek(53272)or8:remhires
1028 poke53265,peek(53265)or32:remhires
1030 poke53270,peek(53270)or16:remmulticolor on
1032 return
1034 sys53000,16192,1024,1000,1
1036 sys53000,17208,55296,1000,1
1038 poke53280,peek(17192)
1040 poke53281,peek(17193)
1042 return
1044 sys53000,16384,1024,1000,1
1046 sys53000,17408,55296,1000,1
1048 poke53280,peek(16255)and15:rem bdr
1050 poke53281,peek(16256):rem screen
1052 return
1054 sys53000,23552,1024,1000,1:return
1056 poke53270,peek(53270)and239:return
1058 poke53265,peek(53265)or16:return
1060 sys53105,1:return:rem fade in
1062 poke53270,peek(53270)or16:return
1064 sys53105,0:return:rem fade out
1066 printchr$(147):poke56576,199:poke53265,27:poke53270,200:poke53272,21
1068 printchr$(147):poke53281,0:poke53281,0:poke646,14:return:rem default color
1074 print"":print:poke646,7
1075 print "page 3[146]":fori=1to3:print:next
1076 print" the following is a picture drawn using"
1077 printspc(12)"blazing paddles"
1078 print:print"page 3 text goes in lines 1074-1086
1079 [153]"in demo program 2. "
1080 [153]
1081 [153]"be creative! let your imagination run
1082 print"free & create a computerized storybook!
1083 [153][166]15)" "
1084 [153]"":[129]i[178]1[164]19:[153]:[130]
1085 [153][166]29)" ":[153]
1086 [153]"after the disk drive light goes out, press f7 to continue.":[142]
1174 [153]"":[153]:[151]646,1
1175 [153]"page 4wait":[129]i[178]1[164]3:[153]:[130]
1176 [153]" the following is a picture drawn using":[153]:[153]
1177 [153][166]12)"flexidraw 5.5 "
1178 [153]:[153]"page 4 text is in lines 1174-1186
1179 print"in demo program 2. "
1180 printspc(18)" "
1181 print"list these programs and learn how
1182 [153]"to make your own storybook 64!
1183 printspc(15)"have fun!"
1184 print"":fori=1to19:print:next
1185 printspc(29)" ":print
1186 print"after the disk drive light goes out, press f7 to continue.":return
9999 end
10000 a=peek(46)*256:b=peek(45):print"basic program extends to";:printa+b